home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog77 < prev    next >
Text File  |  1995-06-29  |  909b  |  49 lines
  1. # test unkwonw command
  2.  
  3. # proc unknown.old {} {
  4. # }
  5. # 
  6. # global tclMotif_unknown
  7. # 
  8. # set tclMotif_unknown "unknown"
  9. # 
  10. # while {[info commands $tclMotif_unknown] != ""} {
  11. #     set tclMotif_unknown $tclMotif_unknown.old
  12. # }
  13. # puts stdout "new name: $tclMotif_unknown"
  14. # 
  15. # 
  16. # rename unknown $tclMotif_unknown
  17. # 
  18. # proc unknown {name args} {
  19. #     global tclMotif_unknown
  20. # 
  21. #     set cmds [info commands $name]
  22. #     set len [llength $cmds]
  23. #     if {$len == 0} {
  24. #     set cmd "uplevel 1 unknown.old $name $args"
  25. #     puts "cmnd: $cmd"
  26. #     eval $cmd
  27. #     }
  28. #     if {$len > 1} {
  29. #     error "non-unique command \"$name\" matches \"$cmds\""
  30. #     }
  31. #     uplevel $cmds $args
  32. # }
  33.  
  34. proc fred {a b} {
  35.     puts stdout fred
  36. }
  37.  
  38. xtAppInitialize -class Program
  39.  
  40. xmForm .form managed
  41. xmRowColumn .form.rc managed
  42. xmPushButton .form.rc.fred managed
  43.  
  44.  .*fred activateCallback {puts stdout "ouch"}
  45.  
  46. . realizeWidget
  47.  
  48.  . mainLoop
  49.